LABEL	TEST_SET_VAR
	SET	I,0
	PRINT	"0",I
	SET	I,12
	PRINT   "12",I
	SET	J,I
	PRINT	"12",J
LABEL	TEST_SET_OBJ
	SET	AXE,0
	PRINT	"AXE0",AXE
	SET	AXE,1
	PRINT	"AXE1",AXE
LABEL	TEST_LDA
	SET	I,0
	PRINT	"0",I
	LDA	I,WESTOFFISSURE
	PRINT	"WESTOFFISSURE",I
	LDA	J,EAST
	PRINT	"EAST",J
	LDA   J,SNIDELEY-1
	PRINT "SNIDELEY",SNIDELEY
	PRINT	"SNIDELEY-1",J
	PRINT	"SLIDE",^SLIDE
	LDA	J,^SLIDE-1
	PRINT	"SLIDE-1",J
LABEL	TEST_DEPOSIT
	LDA	I,AXE
	PRINT	"IAXE",I
	SET	AXE,1
	PRINT	"AXE1",AXE
	DEPOSIT	I,2
	PRINT	"AXE2",AXE
LABEL	TEST_EVAL
	SET	AXE,2
	PRINT	"AXE2",AXE
	LDA	J,AXE
	EVAL	I,J
	PRINT	"I2",I
LABEL	TEST_RANDOM
	RANDOM	I,10
	PRINT	"RANDI",I
	RANDOM	I,10
	PRINT	"RANDI",I
	RANDOM   J,LAST.CAMEO-CAMEO+1
	PRINT	"RANDCAMEO",J
	RANDOM   J,LAST.CAMEO-CAMEO+1
	PRINT	"RANDCAMEO",J
	SET	SCULPTURE,12
	RANDOM  SCULPTURE,@SCULPTURE-1	
	PRINT	"RANDSCUL",SCULPTURE
	SET	SCULPTURE,12
	RANDOM  SCULPTURE,@SCULPTURE-1	
	PRINT	"RANDSCUL",SCULPTURE
LABEL   TEST_ARITHMETICS
	SET	I,0
	PRINT	"I0",I
	ADD	I,12
	PRINT	"I12",I
	SUB	I,3
	PRINT	"I9",I
	DIVIDE	I,3
	PRINT	"I3",I
	MULT	I,2
	PRINT	"I6",I
	SET	J,4
	ADD	I,J
	PRINT	"I10",I
LABEL   TEST_BITS
	BIC	BEAR,LIT
	BIS	BEAR,FREEBIE
	PRINT	"BEARFREE",BEAR

	BIT	BEAR,FREEBIE
	ELSE
	   PRINT "FAIL",0
	FIN

	BIT	BEAR,LIT
	   PRINT "FAIL",0
	FIN

	BIC	BEAR,FREEBIE
	PRINT	"BEARFREE",BEAR

	BIT	BEAR,FREEBIE
	   PRINT "FAIL",0
	FIN

	BIT	BEAR,LIT
	   PRINT "FAIL",0
	FIN

	LDA	I,BEAR
	BIS	I,LIT
	PRINT	"BEARLIT",BEAR
	PRINT	"ILIT",I

	BIT	I,LIT
	ELSE
	   PRINT "FAIL",0
	FIN

	BIS	I,FREEBIE
	PRINT	"BEARLITFREE",BEAR
	PRINT	"ILITFREE",I
	BIC	I,LIT

	BIT	I,LIT
	   PRINT "FAIL",0
	FIN

	BIT	I,FREEBIE
	ELSE
	   PRINT "FAIL",0
	FIN

	PRINT	"BEARFREE",BEAR
	PRINT	"IFREE",I

LABEL	TEST_STATUS
	LDA	STATUS,1	
	IFEQ	STATUS,1
	ELSE
	   PRINT "FAIL",1
	FIN
	SET	STATUS,2
	IFEQ	STATUS,2
	ELSE
	   PRINT "FAIL",2
	FIN
	BIS	STATUS,FASTMODE
	BIT	STATUS,FASTMODE
	ELSE
		PRINT "FAIL",3
	FIN
	LDA	STATUS,1
	IFEQ	STATUS,1
	ELSE
	   PRINT "FAIL",4
	FIN
	BIT	STATUS,FASTMODE
	ELSE
		PRINT "FAIL",5
	FIN

LABEL	TEST_GOTO
	GOTO	SWOFCHASM
	PRINT	"HERE",HERE
	IFAT	SWOFCHASM
	ELSE
	   PRINT "FAIL",1
	FIN
	BIT	STATUS,MOVED
	ELSE
		PRINT "FAIL",2
	FIN
	BIC	STATUS,MOVED

	GOTO	SLOPING
	IFAT	SLOPING
	ELSE
	   PRINT "FAIL",3
	FIN
	LDA	I,SWOFCHASM
	IFEQ	I,THERE
	ELSE
	   PRINT "FAIL",4
	FIN
	BIT	STATUS,MOVED
	ELSE
		PRINT "FAIL",5
	FIN

LABEL	TEST_GOTO_BITS
	BIS	ROAD,LIT
	BIC	SLOPING,LIT
	GOTO	ROAD
	BIT	HERE,LIT
	ELSE
	   PRINT "FAIL",1
	FIN
	GOTO	SLOPING
	BIT	HERE,LIT
	   PRINT "FAIL",1
	FIN
	GOTO	ROAD
	BIT	HERE,LIT
	ELSE
	   PRINT "FAIL",1
	FIN

LABEL	TEST_APPORT
 	APPORT STALACTITE,STALACT
	IFLOC	STALACTITE,STALACT
	ELSE
	   PRINT "FAIL",1
	FIN

 	APPORT STALACTITE,ROAD
	IFLOC	STALACTITE,STALACT
	   PRINT "FAIL",2
	FIN
	IFLOC	STALACTITE,ROAD
	ELSE
	   PRINT "FAIL",3
	FIN

	LDA	I,STALACTITE
	IFLOC	STALACTITE,STALACT
	   PRINT "FAIL",4
	FIN
	IFLOC	STALACTITE,ROAD
	ELSE
	   PRINT "FAIL",5
	FIN
	APPORT	I,STALACT
	IFLOC	STALACTITE,STALACT
	ELSE
	   PRINT "FAIL",6
	FIN
	IFLOC	STALACTITE,ROAD
	   PRINT "FAIL",7
	FIN

LABEL	TEST_ITOBJ
	APPORT	SWORD,ROAD
	IFLOC	SWORD,ROAD
	ELSE
	   PRINT "FAIL",1
	FIN
	ITOBJ I
	   APPORT   I,LIMBO
	EOI
	IFLOC	SWORD,ROAD
	   PRINT "FAIL",1
	FIN
	IFLOC	SWORD,LIMBO
	ELSE
	   PRINT "FAIL",1
	FIN

LABEL	TEST_COND
	LDA	I,1
	IFEQ	I,1
	ELSE
	   PRINT "FAIL",1
	FIN
	IFGT	I,0
	ELSE
	   PRINT "FAIL",2
	FIN
	IFGE	I,1
	ELSE
	   PRINT "FAIL",3
	FIN
	IFGE	I,2
	   PRINT "FAIL",4
	FIN
	IFLT	I,2
	ELSE
	   PRINT "FAIL",5
	FIN
	IFLE	I,2
	ELSE
	   PRINT "FAIL",6
	FIN
	IFLE	I,1
	ELSE
	   PRINT "FAIL",7
	FIN
	IFLE	I,0
	   PRINT "FAIL",8
	FIN
